/* eclu008.p - PCC Types Lookup UI                                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.12 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.6      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.6     Modified: 07/03/97    By: Jean Miller    *K0FZ*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 9.0     Modified: 01/08/99    By: Jean Miller    *M04S*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 08/14/00    By: Jacolyn Neder  *N0KW*
 * Revision: 1.11  BY: Jean Miller          DATE: 12/06/01  ECO: *P03D*
 * $Revision: 1.12 $    BY: Katie Hilbert        DATE: 12/30/02  ECO: *P0L8*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "PCC Types"

&SCOPED-DEFINE BR-NAME ec008
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE ect_mstr
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (ect_type ect_dsgn_grp ect_desc ect_doc_type ect_prefix ect_approval ect_distr ect_mod_date)
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.ect_type
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 ect_mstr.ect_type
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-ect_type
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Type"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.ect_dsgn_grp
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 ect_mstr.ect_dsgn_grp
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-ect_dsgn_grp
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Dsgn Grp"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.ect_desc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 ect_mstr.ect_desc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-ect_desc
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Description"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(24)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 25

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.ect_doc_type
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 ect_mstr.ect_doc_type
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-ect_doc_type
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Doc Type"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "X(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.ect_prefix
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 ect_mstr.ect_prefix
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-ect_prefix
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Prefix"
&SCOPED-DEFINE BR-FIELD-TYPE-5 character
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "x(3)"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 7

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.ect_approval
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 ect_mstr.ect_approval
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-ect_approval
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Apr Code"
&SCOPED-DEFINE BR-FIELD-TYPE-6 character
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.ect_distr
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 ect_mstr.ect_distr
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-ect_distr
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Distribution"
&SCOPED-DEFINE BR-FIELD-TYPE-7 character
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 13

&SCOPED-DEFINE Q-NUM-FILT-VALS 8
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 25
&SCOPED-DEFINE BR-BROWSE-WIDTH 81
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i &string-4 = 'LOOKUP'}
if c-application-mode <> 'WEB' then do:
   {lookup.i}
end.
